home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Network Support Library
/
RoseWare - Network Support Library.iso
/
apidev
/
tpapi.exe
/
NWWRKSTN.PA1
< prev
Wrap
Text File
|
1994-01-14
|
5KB
|
120 lines
{#Z+}
(*(10U&l12D(s4099T&k2S*)
{***************************************************************************}
{** Program : NWWRKSTN **}
{***************************************************************************}
{** Version : 1.4 ** Started : 11/11/91 ** Ended : / / **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API **}
{** **}
{** This unit forms the second level object : WORKSTAT **}
{** This object is a descandent of : NETWARE **}
{** **}
{** **}
{** **}
{** **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware Workstation Services **}
{** **}
{** **}
{** **}
{** This code is (c) 1991 - 1994 Antonio Covelli. ALL RIGHTS RESERVED. **}
{** Portions (c) Novell Inc, **}
{** **}
{** **}
{***************************************************************************}
{$I NETWARE.INC}
{#Z-}
UNIT NWWRKSTN;
INTERFACE
USES
nwvar,
netware;
TYPE
PWorkStationOBJ = ^WorkStationOBJ;
WorkStationOBJ = OBJECT (NetwareOBJ)
{ This object provides Netware Workstation Services API's. }
PROCEDURE DeleteFakeRoot (DriveLetter : CHAR);
{ Deletes a fake root while leaving the drive mapping intact. }
PROCEDURE EndOfJob (Process : WORD);
FUNCTION GetConnectionID (FileServerName : TObjectName;
VAR ConnectionID : WORD) : WORD;
{ Returns the connection ID of the specified file server. Under NETX
connection ID's can be 1 through to 8. }
FUNCTION GetDefaultConnectionID : WORD;
{ Returns the workstations default connection ID, normally the one where
the shell is currently sending packets to. The actual code for this
function is in NETWARE.PAS. }
PROCEDURE GetFileServerName (ConnectionID : WORD;
VAR FileServerName : TObjectName);
{ Returns the file server name of the specified connection ID. Under NETX
connection ID's can be 1 through to 8. }
FUNCTION GetNetwareShellVersion (VAR MajorVersion, MinorVersion,
RevisionLevel, ShellType : BYTE) : WORD;
{The above function is in NETWARE.PAS}
FUNCTION GetNumberOfLocalDrives : WORD;
{ Returns the number of local drives on the current workstation. }
FUNCTION GetPreferredConnectionID : WORD;
{The above function is in NETWARE.PAS}
FUNCTION GetPrimaryConnectionID : WORD;
{ Returns the workstation's primary connection ID. The primary connection ID
is normally the file server which was logged into. }
FUNCTION GetRelativeDriveDepth (DriveLetter : CHAR) : WORD;
FUNCTION GetTaskMode (VAR TaskMode : BYTE) : WORD;
PROCEDURE GetWorkstationEnvironment (VAR OperatingSystemType,
OperatingSystemVersion,
HardwareType,
ShortHardwareType : TString40);
FUNCTION IsConnectionIDInUse (ConnectionID : WORD) : WORD;
{ Allows a client to determine if a connection ID is currently allocated to
a valid file server. }
FUNCTION MapFakeRoot (DriveLetter : CHAR;
DirectoryPath : TPathName) : WORD;
{ Maps the specified drive to the path and makes it a fake root mapping. }
FUNCTION SetEndOfJobStatus (EndOfJobFlag : BYTE) : BYTE;
FUNCTION SetNetwareErrorMode (ErrorMode : BYTE) : BYTE;
PROCEDURE SetPreferredConnectionID (ConnectionID : WORD);
{The above function is in NETWARE.PAS}
PROCEDURE SetPrimaryConnectionID (ConnectionID : WORD);
PROCEDURE SetTaskMode (TaskMode : BYTE);
FUNCTION SetShowDots (ShowDots : BOOLEAN) : BOOLEAN;
{ Turns on or off the directory identifiers in listings. Returns the
previous setting as true or false. }
DESTRUCTOR Done; VIRTUAL;
END;